home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Sacred & Secular
/
Sacred and Secular.iso
/
pc
/
movies
/
shared.dir
/
04838_Script__PanPic 2nd framePanPic 2nd frame.ls
< prev
next >
Wrap
Text File
|
1996-04-03
|
1KB
|
54 lines
global zoom,rplane,rplanemask,lplane,lplanemask
global zoomin,zoommask,zoomout,hand,handmask
on exitframe
if the mouseH > 620 and the mouseH < 640 and the mouseV < 437 then cursor [rplane,rplanemask]
else if the mouseH < 20 and the mouseH > 0 then cursor [lplane,lplanemask]
else if the mouseV > the top of sprite 4 and the mouseH > the left of sprite 4 then -- rollover(4) then
if zoom = 1 then
cursor [zoomout,zoommask]
else
if the mouseV > (the stageTop + 458) then
cursor [zoomout,zoommask]
else
cursor [zoomin,zoommask]
end if
end if
else cursor [hand,handmask]
go the frame
end
on mouseDOWN
if the doubleclick then
dontpassevent
else
set h = the mouseH
if the mouseV > the top of sprite 4 and the mouseH > the left of sprite 4 then
goCaption2
else
if h < 20 then
swapPic(0,3)
else if h > 620 then
swapPic(1,3)
else
PanPic
end if
end if
end if
end
on keydown
if the keyCode = 123 then swapPic(0,3)
else if the keyCode = 124 then swapPic(1,3)
end